home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC-SIG: World of Education
/
PC-SiG's World of Education.iso
/
run
/
2646
/
series.eka
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1992-03-23
|
251 b
|
9 lines
; Demo of infinite series.
; Approximate sum using a large finite number of terms.
approx_sum = SUM(1/(n*n),n,1,8000)
; Mercury has special logic for an infinite sum, so just do it.
infinite_sum = SUM(1/(n*n),n,1,INF)
true_limit = PI^2 / 6